Option Explicit
Sub Q_Sample008()
    ']wޥζMicrosoft Outlook 10.0 Object Library
    Dim myOlApp As Outlook.Application
    Dim myMail  As Outlook.MailItem
    Dim myBody  As String
    Set myOlApp = CreateObject("OutLook.Application")
    Set myMail = myOlApp.CreateItem(olMailItem)
    With myMail
    .To = ActiveSheet.Cells(1, 1).Text				'ؼ
    .Subject = "oO"             				'D
    .CC = "bbbbb@yyy.co.jp" & ";" & "ccccc@yyy.co.jp"		'CC
    .BCC = "ddddd@zzz.co.jp" & ";" & "eeeee@zzz.co.jp" 		'BCC
    myBody = "1C" & vbCrLf & vbCrLf			'
    myBody = myBody & "1C" & vbCrLf
    myBody = myBody & "1C" & vbCrLf
    myBody = myBody & "1C" & vbCrLf & vbCrLf
    myBody = myBody & "1C"
    .body = myBody
    .Display
    SendKeys "%s", True
    .Close olDiscard
    End With
    myOlApp.Quit
    Set myOlApp = Nothing						'
End Sub
